{smcl}
{com}{sf}{ul off}{txt}{.-}
      name:  {res}<unnamed>
       {txt}log:  {res}/Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/2Log.smcl
  {txt}log type:  {res}smcl
 {txt}opened on:  {res}27 Feb 2024, 16:11:38
{txt}
{com}. 
. 
.  
. /////////////
> ///////control variables interacted for different levels with period for initial periods
> ////////////
> 
. global countycontrolsraceinyear l_sh_popedu_c90 l_sh_popedu_c00 l_sh_popedu_c10 l_shind_manuf_cbp90 l_shind_manuf_cbp00 l_shind_manuf_cbp10 l_sh_popfborn90 l_sh_popfborn00 l_sh_popfborn10 l_sh_empl_f90 l_sh_empl_f00 l_sh_empl_f10 White_90 White_00 White_10 Black_90 Black_00 Black_10 popdensity90 popdensity00 popdensity10  year2000 year2010 
{txt}
{com}. 
. 
. ////// Table C.1: Technological change, higher education investments, and decadal change in per capita income 
> 
. //Checked
.         eststo clear
{txt}
{com}. 
. quietly reg  d10_pcincome2000   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a      $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}.  
.  //Figure B.2: OLS estimates: Marginal effects of a change (percent 0-1) in routine share of employment by level of investment in higher education on income.
.  quietly margins , dydx(l_sh_routine33a) at(logtotalrev90imp=(0(.5)8)) vsquish
{txt}
{com}. 
.  marginsplot , graphregion(color(white)) yline(0) xtitle("Log HE investment p.c. 1990") ytitle("")      title("")       
{res}
{text}{p 2 6 2}Variables that uniquely identify margins: logtotalrev90imp{p_end}
{res}{txt}
{com}.         
.         graph export Income_OLSroutine.pdf, replace 
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/Income_OLSroutine.pdf written in PDF format)

{com}. 
.  
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.logtotalrev90imp=R33a_1950 c.R33a_1950#c.logtotalrev90imp) logtotalrev90imp       $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}.  
.         esttab est1 est2   using "Econ1990Income.tex", drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a)   interaction(" $\times$ ") style(tex) replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) nonotes
{res}{txt}(note: file Econ1990Income.tex not found)
(output written to {browse  `"Econ1990Income.tex"'})

{com}.  
.  ///Figure 2 IV estimates: Marginal effects of differences in routine employment share on economic outcomes, by level of investment in higher education.
>  //Checked
.  
. quietly margins , dydx(l_sh_routine33a) at(logtotalrev90imp=(0(.5)8)) vsquish
{txt}
{com}. 
.  marginsplot , graphregion(color(white)) yline(0) xtitle("Log HE investment p.c. 1990") ytitle("")      title("")       
{res}
{text}{p 2 6 2}Variables that uniquely identify margins: logtotalrev90imp{p_end}
{res}{txt}
{com}.         
.         graph export Income_IV1950sroutine.pdf, replace 
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/Income_IV1950sroutine.pdf written in PDF format)

{com}. 
. 
.         
. ///Table C.2 Technological change, higher education investments, and decadal change in per capita income, exploiting the number of HE institutions per county in 1950
> 
. //Checked
. 
.         eststo clear
{txt}
{com}. 
. 
.         ivreg2  d10_pcincome2000  (logtotalrev90imp c.l_sh_routine33a#c.logtotalrev90imp= c.l_sh_routine33a#c.countyinst100nottier1 countyinst100nottier1)  l_sh_routine33a      $countycontrolsraceinyear  reg_*    if cycle10year==1, cluster(czone)
{res}
{txt}IV (2SLS) estimation
{hline 20}

Estimates efficient for homoskedasticity only
Statistics robust to heteroskedasticity and clustering on czone

Number of clusters (czone) = {col 33}{res}   451{txt}{col 55}Number of obs = {res}    9313
{txt}{col 55}F( 34,   450) = {res} 1067.40
{txt}{col 55}Prob > F      = {res}  0.0000
{txt}Total (centered) SS     = {res} 5.62916e+10{txt}{col 55}Centered R2   = {res}  0.5126
{txt}Total (uncentered) SS   = {res} 7.32938e+10{txt}{col 55}Uncentered R2 = {res}  0.6257
{txt}Residual SS             = {res} 2.74344e+10{txt}{col 55}Root MSE      = {res}    1716

{txt}{hline 37}{c TT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{col 38}{c |}{col 50}    Robust
{col 1}                    d10_pcincome2000{col 38}{c |}      Coef.{col 50}   Std. Err.{col 62}      z{col 70}   P>|z|{col 78}     [95% Con{col 91}f. Interval]
{hline 37}{c +}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{space 20}logtotalrev90imp {c |}{col 38}{res}{space 2}-832.7787{col 50}{space 2} 236.2284{col 61}{space 1}   -3.53{col 70}{space 3}0.000{col 78}{space 4}-1295.778{col 91}{space 3}-369.7795
{txt}{space 36} {c |}
c.l_sh_routine33a#c.logtotalrev90imp {c |}{col 38}{res}{space 2} 3169.295{col 50}{space 2} 867.6883{col 61}{space 1}    3.65{col 70}{space 3}0.000{col 78}{space 4} 1468.657{col 91}{space 3} 4869.932
{txt}{space 36} {c |}
{space 21}l_sh_routine33a {c |}{col 38}{res}{space 2}-17030.78{col 50}{space 2} 3468.403{col 61}{space 1}   -4.91{col 70}{space 3}0.000{col 78}{space 4}-23828.73{col 91}{space 3}-10232.84
{txt}{space 21}l_sh_popedu_c90 {c |}{col 38}{res}{space 2} 22.58448{col 50}{space 2}  7.05366{col 61}{space 1}    3.20{col 70}{space 3}0.001{col 78}{space 4}  8.75956{col 91}{space 3}  36.4094
{txt}{space 21}l_sh_popedu_c00 {c |}{col 38}{res}{space 2} 34.79454{col 50}{space 2}  3.03194{col 61}{space 1}   11.48{col 70}{space 3}0.000{col 78}{space 4} 28.85205{col 91}{space 3} 40.73704
{txt}{space 21}l_sh_popedu_c10 {c |}{col 38}{res}{space 2}-15.35029{col 50}{space 2} 5.020839{col 61}{space 1}   -3.06{col 70}{space 3}0.002{col 78}{space 4}-25.19095{col 91}{space 3}-5.509625
{txt}{space 17}l_shind_manuf_cbp90 {c |}{col 38}{res}{space 2} 33.70046{col 50}{space 2} 3.823217{col 61}{space 1}    8.81{col 70}{space 3}0.000{col 78}{space 4} 26.20709{col 91}{space 3} 41.19382
{txt}{space 17}l_shind_manuf_cbp00 {c |}{col 38}{res}{space 2} 8.074016{col 50}{space 2} 4.013243{col 61}{space 1}    2.01{col 70}{space 3}0.044{col 78}{space 4} .2082041{col 91}{space 3} 15.93983
{txt}{space 17}l_shind_manuf_cbp10 {c |}{col 38}{res}{space 2} -76.0133{col 50}{space 2} 2.965008{col 61}{space 1}  -25.64{col 70}{space 3}0.000{col 78}{space 4}-81.82461{col 91}{space 3}-70.20199
{txt}{space 21}l_sh_popfborn90 {c |}{col 38}{res}{space 2} 112.1035{col 50}{space 2} 25.49063{col 61}{space 1}    4.40{col 70}{space 3}0.000{col 78}{space 4} 62.14276{col 91}{space 3} 162.0642
{txt}{space 21}l_sh_popfborn00 {c |}{col 38}{res}{space 2}-13.41879{col 50}{space 2} 10.01802{col 61}{space 1}   -1.34{col 70}{space 3}0.180{col 78}{space 4}-33.05375{col 91}{space 3} 6.216177
{txt}{space 21}l_sh_popfborn10 {c |}{col 38}{res}{space 2}-48.84691{col 50}{space 2} 8.357974{col 61}{space 1}   -5.84{col 70}{space 3}0.000{col 78}{space 4}-65.22824{col 91}{space 3}-32.46558
{txt}{space 23}l_sh_empl_f90 {c |}{col 38}{res}{space 2} 78.32678{col 50}{space 2} 14.46874{col 61}{space 1}    5.41{col 70}{space 3}0.000{col 78}{space 4} 49.96856{col 91}{space 3}  106.685
{txt}{space 23}l_sh_empl_f00 {c |}{col 38}{res}{space 2}  10.3687{col 50}{space 2} 4.644599{col 61}{space 1}    2.23{col 70}{space 3}0.026{col 78}{space 4} 1.265452{col 91}{space 3} 19.47194
{txt}{space 23}l_sh_empl_f10 {c |}{col 38}{res}{space 2}-2.464913{col 50}{space 2} 14.05856{col 61}{space 1}   -0.18{col 70}{space 3}0.861{col 78}{space 4}-30.01919{col 91}{space 3} 25.08936
{txt}{space 28}White_90 {c |}{col 38}{res}{space 2} 1128.512{col 50}{space 2} 213.0244{col 61}{space 1}    5.30{col 70}{space 3}0.000{col 78}{space 4} 710.9919{col 91}{space 3} 1546.032
{txt}{space 28}White_00 {c |}{col 38}{res}{space 2} 3146.201{col 50}{space 2} 234.8213{col 61}{space 1}   13.40{col 70}{space 3}0.000{col 78}{space 4}  2685.96{col 91}{space 3} 3606.443
{txt}{space 28}White_10 {c |}{col 38}{res}{space 2} 1191.574{col 50}{space 2} 285.4219{col 61}{space 1}    4.17{col 70}{space 3}0.000{col 78}{space 4} 632.1572{col 91}{space 3} 1750.991
{txt}{space 28}Black_90 {c |}{col 38}{res}{space 2} 2308.685{col 50}{space 2} 240.1075{col 61}{space 1}    9.62{col 70}{space 3}0.000{col 78}{space 4} 1838.083{col 91}{space 3} 2779.287
{txt}{space 28}Black_00 {c |}{col 38}{res}{space 2} 1954.824{col 50}{space 2} 291.0112{col 61}{space 1}    6.72{col 70}{space 3}0.000{col 78}{space 4} 1384.453{col 91}{space 3} 2525.196
{txt}{space 28}Black_10 {c |}{col 38}{res}{space 2}-1628.128{col 50}{space 2} 204.2128{col 61}{space 1}   -7.97{col 70}{space 3}0.000{col 78}{space 4}-2028.378{col 91}{space 3}-1227.878
{txt}{space 24}popdensity90 {c |}{col 38}{res}{space 2} .1456389{col 50}{space 2} .0625333{col 61}{space 1}    2.33{col 70}{space 3}0.020{col 78}{space 4} .0230758{col 91}{space 3}  .268202
{txt}{space 24}popdensity00 {c |}{col 38}{res}{space 2} -.021412{col 50}{space 2} .0277469{col 61}{space 1}   -0.77{col 70}{space 3}0.440{col 78}{space 4}-.0757949{col 91}{space 3} .0329708
{txt}{space 24}popdensity10 {c |}{col 38}{res}{space 2} .0105761{col 50}{space 2} .0239689{col 61}{space 1}    0.44{col 70}{space 3}0.659{col 78}{space 4}-.0364022{col 91}{space 3} .0575543
{txt}{space 28}year2000 {c |}{col 38}{res}{space 2} 4794.433{col 50}{space 2} 883.1888{col 61}{space 1}    5.43{col 70}{space 3}0.000{col 78}{space 4} 3063.415{col 91}{space 3} 6525.451
{txt}{space 28}year2010 {c |}{col 38}{res}{space 2} 7855.287{col 50}{space 2} 1147.913{col 61}{space 1}    6.84{col 70}{space 3}0.000{col 78}{space 4} 5605.418{col 91}{space 3} 10105.16
{txt}{space 26}reg_midatl {c |}{col 38}{res}{space 2}-732.2231{col 50}{space 2}  129.012{col 61}{space 1}   -5.68{col 70}{space 3}0.000{col 78}{space 4} -985.082{col 91}{space 3}-479.3642
{txt}{space 27}reg_encen {c |}{col 38}{res}{space 2}-1221.319{col 50}{space 2} 122.3471{col 61}{space 1}   -9.98{col 70}{space 3}0.000{col 78}{space 4}-1461.114{col 91}{space 3}-981.5227
{txt}{space 27}reg_wncen {c |}{col 38}{res}{space 2}-807.1399{col 50}{space 2}  132.161{col 61}{space 1}   -6.11{col 70}{space 3}0.000{col 78}{space 4}-1066.171{col 91}{space 3}-548.1091
{txt}{space 28}reg_satl {c |}{col 38}{res}{space 2}-725.7607{col 50}{space 2} 115.5145{col 61}{space 1}   -6.28{col 70}{space 3}0.000{col 78}{space 4} -952.165{col 91}{space 3}-499.3564
{txt}{space 27}reg_escen {c |}{col 38}{res}{space 2}-653.1799{col 50}{space 2} 113.8034{col 61}{space 1}   -5.74{col 70}{space 3}0.000{col 78}{space 4}-876.2304{col 91}{space 3}-430.1295
{txt}{space 27}reg_wscen {c |}{col 38}{res}{space 2}-937.1495{col 50}{space 2} 105.1203{col 61}{space 1}   -8.92{col 70}{space 3}0.000{col 78}{space 4}-1143.182{col 91}{space 3}-731.1174
{txt}{space 27}reg_mount {c |}{col 38}{res}{space 2}-1042.943{col 50}{space 2} 96.34654{col 61}{space 1}  -10.82{col 70}{space 3}0.000{col 78}{space 4}-1231.779{col 91}{space 3}-854.1075
{txt}{space 27}reg_pacif {c |}{col 38}{res}{space 2}-1320.934{col 50}{space 2} 141.2607{col 61}{space 1}   -9.35{col 70}{space 3}0.000{col 78}{space 4}  -1597.8{col 91}{space 3}-1044.068
{txt}{space 31}_cons {c |}{col 38}{res}{space 2}-1250.774{col 50}{space 2} 749.0335{col 61}{space 1}   -1.67{col 70}{space 3}0.095{col 78}{space 4}-2718.853{col 91}{space 3} 217.3047
{txt}{hline 37}{c BT}{hline 11}{hline 11}{hline 9}{hline 8}{hline 13}{hline 12}
{help ivreg2##idtest:Underidentification test} (Kleibergen-Paap rk LM statistic):{res}{col 71}   2.920
{txt}{col 52}Chi-sq({res}1{txt}) P-val =  {res}{col 73}0.0875
{txt}{hline 78}
{help ivreg2##widtest:Weak identification test} (Cragg-Donald Wald F statistic):{res}{col 71} 452.653
{txt}                         (Kleibergen-Paap rk Wald F statistic):{res}{col 71}  23.902
{txt}Stock-Yogo weak ID test critical values:{res}{txt}{col 42}10% maximal IV size{res}{col 73}  7.03
{txt}{col 42}15% maximal IV size{res}{col 73}  4.58
{txt}{col 42}20% maximal IV size{res}{col 73}  3.95
{txt}{col 42}25% maximal IV size{res}{col 73}  3.63
{txt}Source: Stock-Yogo (2005).  Reproduced by permission.
NB: Critical values are for Cragg-Donald F statistic and i.i.d. errors.
{hline 78}
{help ivreg2##overidtests:Hansen J statistic} (overidentification test of all instruments):{res}{col 71}   0.000
{txt}{col 50}(equation exactly identified)
{hline 78}
Instrumented:{col 23}logtotalrev90imp c.l_sh_routine33a#c.logtotalrev90imp
Included instruments:{col 23}l_sh_routine33a l_sh_popedu_c90 l_sh_popedu_c00
{col 23}l_sh_popedu_c10 l_shind_manuf_cbp90 l_shind_manuf_cbp00
{col 23}l_shind_manuf_cbp10 l_sh_popfborn90 l_sh_popfborn00
{col 23}l_sh_popfborn10 l_sh_empl_f90 l_sh_empl_f00 l_sh_empl_f10
{col 23}White_90 White_00 White_10 Black_90 Black_00 Black_10
{col 23}popdensity90 popdensity00 popdensity10 year2000 year2010
{col 23}reg_midatl reg_encen reg_wncen reg_satl reg_escen
{col 23}reg_wscen reg_mount reg_pacif
Excluded instruments:{col 23}c.l_sh_routine33a#c.countyinst100nottier1
{col 23}countyinst100nottier1
{hline 78}

{com}.          eststo
{txt}({res}est1{txt} stored)

{com}.  
. esttab  est1  using "1990HEinst1950s.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a)   interaction(" $\times$ ") style(tex)    nonotes     
{res}{txt}(note: file 1990HEinst1950s.tex not found)
(output written to {browse  `"1990HEinst1950s.tex"'})

{com}. 
.         
.         
.          
. ////Table C.3 Summary statistics of different measures of county higher education investment per in 1990, by type of institution
> 
. sutex totalrev3allperpop totalrev90nt1  totalrevtier1perpop totalrevccpublic90perpop if year==1990, labels minmax digits(2) file(SummaryInstitutions.tex) replace
{txt}(note: file SummaryInstitutions.tex not found)
file {view "SummaryInstitutions.tex"} saved

{com}. 
.  
.  
.  
. 
. //Table C.4 Technological change, higher education investments in different subsets of higher education institutions, and real per capita income–OLS Estimates
. 
.  
. eststo clear     
{txt}
{com}.          foreach var in  logtotalrevall90imp logtotalrevtier190imp  logtotalrevccpublic90imp  {c -(}
{txt}  2{com}. 
. quietly reg  d10_pcincome2000  c.l_sh_routine33a#c.`var' `var'       $countycontrolsraceinyear l_sh_routine33a reg_*  [aw=natpopshareimp]  if cycle10year==1, cluster(czone)
{txt}  3{com}.  eststo 
{txt}  4{com}.          
. {c )-}
{txt}({res}est1{txt} stored)
({res}est2{txt} stored)
({res}est3{txt} stored)

{com}. 
.   
.   esttab  using "OLSEcon1990Bytypes.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrevall90imp logtotalrevall90imp c.l_sh_routine33a#c.logtotalrevtier190imp logtotalrevtier190imp c.l_sh_routine33a#c.logtotalrevccpublic90imp logtotalrevccpublic90imp l_sh_routine33a) interaction(" $\times$ ") style(tex)    nonotes
{res}{txt}(note: file OLSEcon1990Bytypes.tex not found)
(output written to {browse  `"OLSEcon1990Bytypes.tex"'})

{com}. 
. 
. //Table C.5 Technological change, higher education investments in different subsets of higher education institutions, and real per capita income–IV Estimates
. 
. 
. eststo clear
{txt}
{com}. 
. 
. 
. foreach var in  logtotalrevall90imp logtotalrevtier190imp  logtotalrevccpublic90imp  {c -(}
{txt}  2{com}. 
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.`var'=R33a_1950 c.R33a_1950#c.`var') `var'       $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1, cluster(czone)
{txt}  3{com}.  eststo 
{txt}  4{com}.          
. {c )-}
{txt}({res}est1{txt} stored)
({res}est2{txt} stored)
({res}est3{txt} stored)

{com}. 
. 
. esttab est1 est2  est3 using "IVEcon1990Bytypes.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*)  order(c.l_sh_routine33a#c.logtotalrevall90imp logtotalrevall90imp c.l_sh_routine33a#c.logtotalrevtier190imp logtotalrevtier190imp c.l_sh_routine33a#c.logtotalrevccpublic90imp logtotalrevccpublic90imp l_sh_routine33a) interaction(" $\times$ ") style(tex)  nonotes
{res}{txt}(note: file IVEcon1990Bytypes.tex not found)
(output written to {browse  `"IVEcon1990Bytypes.tex"'})

{com}. 
. 
. 
.         
. ////Table C.6 Technological change, higher education investments, and decadal change in per capita income: low and high manufacturing share counties
> sum l_shind_manuf_cbp if year==1990, detail ///median is 17.40733
> 

                  {txt}Share Manufacturing Empl.
{hline 61}
      Percentiles      Smallest
 1%    {res} 1.436924       .1082729
{txt} 5%    {res} 4.018017       .1082729
{txt}10%    {res} 6.558416       .1082729       {txt}Obs         {res}      3,107
{txt}25%    {res} 11.79715        .282186       {txt}Sum of Wgt. {res}      3,107

{txt}50%    {res} 17.40773                      {txt}Mean          {res} 18.73412
                        {txt}Largest       Std. Dev.     {res} 9.514338
{txt}75%    {res} 25.51927         52.009
{txt}90%    {res} 30.52143       54.41573       {txt}Variance      {res} 90.52263
{txt}95%    {res} 34.21236       54.62111       {txt}Skewness      {res} .4462493
{txt}99%    {res} 43.85447       54.62111       {txt}Kurtosis      {res} 3.144658
{txt}
{com}. gen highmanufac=0 if l_shind_manuf_cbp< 17.40773
{txt}(51,880 missing values generated)

{com}. replace highmanufac=1 if l_shind_manuf_cbp>= 17.40773
{txt}(51,880 real changes made)

{com}. 
.  
. //Panel A: OLS models
.         eststo clear
{txt}
{com}. 
. quietly reg  d10_pcincome2000   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a      $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 & highmanufac==0, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}. 
.  quietly reg  d10_pcincome2000   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a      $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 & highmanufac==1, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}.  
.         esttab est1 est2   using "Econ1990IncomeHighLowmanuf.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a) interaction(" $\times$ ") style(tex)  nonotes
{res}{txt}(note: file Econ1990IncomeHighLowmanuf.tex not found)
(output written to {browse  `"Econ1990IncomeHighLowmanuf.tex"'})

{com}. 
.  
.  //Panel B: IV models
.         eststo clear
{txt}
{com}.  
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.logtotalrev90imp=R33a_1950 c.R33a_1950#c.logtotalrev90imp) logtotalrev90imp       $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 & highmanufac==0, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}. 
.  quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.logtotalrev90imp=R33a_1950 c.R33a_1950#c.logtotalrev90imp) logtotalrev90imp       $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 & highmanufac==1, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}.  
.  
.         esttab est1 est2   using "IVEcon1990IncomeHighLowmanuf.tex", drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a)  interaction(" $\times$ ") style(tex)  replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001)   nonotes
{res}{txt}(note: file IVEcon1990IncomeHighLowmanuf.tex not found)
(output written to {browse  `"IVEcon1990IncomeHighLowmanuf.tex"'})

{com}. 
.         
.         drop highmanufac
{txt}
{com}.         
.         
.         
.         
. 
.  
. //Table C.7: Technological change, higher education investments, and decadal change in per capita income, extensive and intensive marginsT
. //Checked
. 
. 
.  gen positiverev90=1 if logtotalrev90imp>0
{txt}(32,388 missing values generated)

{com}.   replace positiverev90=0 if logtotalrev90imp<=0
{txt}(32,388 real changes made)

{com}. 
.   label variable positiverev90 "Some HE Investment 1990"
{txt}
{com}. 
. //Panel A: Districts with some investment vs none in 1990 (extensive margin)
.         eststo clear
{txt}
{com}. 
. quietly reg  d10_pcincome2000   c.l_sh_routine33a#i.positiverev90 positiverev90 l_sh_routine33a      $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 , cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}.  
.  
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a##i.positiverev90=  R33a_1950 c.R33a_1950##i.positiverev90) positiverev90       $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 , cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}.  
. 
.         esttab est1 est2   using "Econ1990IncomeExtensivemargin.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) drop(_cons $countycontrolsraceinyear  reg_*) order( positiverev90 l_sh_routine33a) interaction(" $\times$ ") style(tex)  nonotes
{res}{txt}(note: file Econ1990IncomeExtensivemargin.tex not found)
(output written to {browse  `"Econ1990IncomeExtensivemargin.tex"'})

{com}. 
. ////// Panel B: Only districts with some investment in 1990 (intensive margin)
> 
.         eststo clear
{txt}
{com}. 
. quietly reg  d10_pcincome2000   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a      $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 & logtotalrev90imp>0, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}.  
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.logtotalrev90imp=R33a_1950 c.R33a_1950#c.logtotalrev90imp) logtotalrev90imp       $countycontrolsraceinyear  reg_*  [aw=natpopshareimp]  if cycle10year==1 & logtotalrev90imp>0, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}.  
.         esttab est1 est2   using "Econ1990IntensiveRestrict.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a) interaction(" $\times$ ") style(tex)  
{res}{txt}(note: file Econ1990IntensiveRestrict.tex not found)
(output written to {browse  `"Econ1990IntensiveRestrict.tex"'})

{com}. 
. 
. drop positiverev90      
{txt}
{com}. 
. 
. 
. 
. 
. /////Table C.8: Technological change, higher education investments, and decadal change in per capita income. No weights
> //Checked
. 
.         eststo clear
{txt}
{com}. 
. quietly reg  d10_pcincome2000   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a      $countycontrolsraceinyear  reg_*   if cycle10year==1, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}.  
. 
.  
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.logtotalrev90imp=R33a_1950 c.R33a_1950#c.logtotalrev90imp) logtotalrev90imp       $countycontrolsraceinyear  reg_*    if cycle10year==1, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}.  
. esttab est1 est2   using "Econ1990IncomeNoWeights.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a) interaction(" $\times$ ") style(tex)  
{res}{txt}(note: file Econ1990IncomeNoWeights.tex not found)
(output written to {browse  `"Econ1990IncomeNoWeights.tex"'})

{com}. 
. 
. 
.  //////////////////////
> //Table C.9: Technological Change, Higher Education Investments in different subsets of higher education, and real per capita Income–OLS Estimates. No weights
. 
. 
. eststo clear
{txt}
{com}. 
. foreach var in  logtotalrevall90imp logtotalrevtier190imp  logtotalrevccpublic90imp {c -(}
{txt}  2{com}. 
. quietly reg  d10_pcincome2000   c.l_sh_routine33a#c.`var' `var' l_sh_routine33a      $countycontrolsraceinyear  reg_*    if cycle10year==1, cluster(countyfips)
{txt}  3{com}. 
. eststo
{txt}  4{com}. {c )-}
{txt}({res}est1{txt} stored)
({res}est2{txt} stored)
({res}est3{txt} stored)

{com}. 
. esttab est1 est2 est3  using "OLSEcon1990subsetsNoweights.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a) interaction(" $\times$ ") style(tex)  
{res}{txt}(note: file OLSEcon1990subsetsNoweights.tex not found)
(output written to {browse  `"OLSEcon1990subsetsNoweights.tex"'})

{com}.  
.         
.         
.  //////////////////////
> //Table C.10: Technological Change, Higher Education Investments in different subsets of higher education, and real per capita Income–IV Estimates     No weights
.         
.         eststo clear
{txt}
{com}. 
. foreach var in  logtotalrevall90imp logtotalrevtier190imp  logtotalrevccpublic90imp  {c -(}
{txt}  2{com}. 
. quietly ivreg2  d10_pcincome2000   (l_sh_routine33a c.l_sh_routine33a#c.`var'=R33a_1950 c.R33a_1950#c.`var') `var'       $countycontrolsraceinyear  reg_*  if cycle10year==1, cluster(czone)
{txt}  3{com}.  eststo 
{txt}  4{com}.          
. {c )-}
{txt}({res}est1{txt} stored)
({res}est2{txt} stored)
({res}est3{txt} stored)

{com}. 
. 
. esttab est1 est2  est3 using "IVEcon1990alternativesubsetsNoweights.tex", replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons $countycontrolsraceinyear  reg_*) order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a)                interaction(" $\times$ ") style(tex)  
{res}{txt}(note: file IVEcon1990alternativesubsetsNoweights.tex not found)
(output written to {browse  `"IVEcon1990alternativesubsetsNoweights.tex"'})

{com}.  
.  
.         
. 
. ///Table C.11: Technological change, higher education investments, and county characteristics
> // checked
. 
. 
. 
. eststo clear
{txt}
{com}. quietly reg  l_sh_popedu_c   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a         l_shind_manuf_cbp  l_sh_popfborn     White_  popdensity  populationover16  [aw=natpopshareimp]  if year==2015, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est1{txt} stored)

{com}.  
. quietly reg  l_shind_manuf_cbp   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a        l_sh_popedu_c   l_sh_popfborn     White_  popdensity  populationover16  [aw=natpopshareimp]  if year==2015 , cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est2{txt} stored)

{com}. 
.  
.  quietly reg  l_sh_popfborn   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a        l_sh_popedu_c l_shind_manuf_cbp       White_  popdensity  populationover16  [aw=natpopshareimp]  if year==2015 , cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est3{txt} stored)

{com}.  
.  quietly reg  White_   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a        l_sh_popedu_c l_shind_manuf_cbp  l_sh_popfborn       popdensity  populationover16  [aw=natpopshareimp]   if year==2015, cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est4{txt} stored)

{com}.  
.  
.   quietly reg  popdensity   c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a        l_sh_popedu_c l_shind_manuf_cbp  l_sh_popfborn   White_      populationover16  [aw=natpopshareimp]  if year==2015 , cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est5{txt} stored)

{com}.  
.   quietly reg presdemshare5year    c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a        l_sh_popedu_c l_shind_manuf_cbp  l_sh_popfborn   White_    popdensity    [aw=natpopshareimp]  if year==2015 , cluster(czone)
{txt}
{com}.  eststo 
{txt}({res}est6{txt} stored)

{com}.  
. 
.  
.  
. esttab using RegressingCovariates.tex , replace label se star(+ 0.1 * 0.05 ** 0.01 *** 0.001) ///
> drop(_cons l_sh_popedu_c  popdensity     l_sh_popedu_c l_shind_manuf_cbp  l_sh_popfborn   White_    popdensity _cons)  order(c.l_sh_routine33a#c.logtotalrev90imp logtotalrev90imp l_sh_routine33a)   interaction(" $\times$ ") style(tex)    nonotes
{res}{txt}(note: file RegressingCovariates.tex not found)
(output written to {browse  `"RegressingCovariates.tex"'})

{com}. 
. 
. 
. 
. 
. ////////////Table C.13 Summary statistics for county variables
>  gen sharecollege=l_sh_popedu_c/100
{txt}(3,675 missing values generated)

{com}.   gen sharemanufacturingempl=l_shind_manuf_cbp/100
{txt}(3,675 missing values generated)

{com}.   gen sharepopforeignborn=l_sh_popfborn/100
{txt}(3,675 missing values generated)

{com}.   gen femaleemplrate=l_sh_empl_f/100
{txt}(9,886 missing values generated)

{com}.   
.   
.   label var sharecollege "Share college educated"
{txt}
{com}.   label var sharemanufacturingempl "Share manufacturing empl."
{txt}
{com}.   label var sharepopforeignborn "Share pop. foreign born"
{txt}
{com}.   label var femaleemplrate "Female employment rate"
{txt}
{com}. 
. 
. 
. 
.    sutex d10_pcincome2000 l_sh_routine33a R33a_1950 logtotalrev90imp sharecollege sharemanufacturingempl sharepopforeignborn femaleemplrate White_  Black_ popdensity if cycle10year==1 , label minmax nobs file(SummarystatsCounty.tex) replace
{txt}(note: file SummarystatsCounty.tex not found)
file {view "SummarystatsCounty.tex"} saved

{com}.   ///For summary statistics Cal. Sample, see its own code 
>   
. drop sharecollege
{txt}
{com}.   drop sharemanufacturingempl
{txt}
{com}.   drop sharepopforeignborn
{txt}
{com}.   drop femaleemplrate
{txt}
{com}.   
. 
.   
.  
.   
.   
.  
.  
.  //////Appendix D: Data Appendix for economic effect analysis
> 
.  
.  
.  //maps and histograms
. 
.         
. ///Figure D.1 a, US Histogram
>         
.                 hist l_sh_routine33a if year==2000, freq  below start(0)  legend(off) ///
>                 graphregion(color(white))
{txt}(bin={res}34{txt}, start={res}0{txt}, width={res}.01078125{txt})
{res}{txt}
{com}.         
. 
. graph export "UShistogramRoutine.png"
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/UShistogramRoutine.png written in PNG format)

{com}. 
. 
. ///Figure D.1 b, California Histogram
> 
. hist l_sh_routine33a if statefips==6 & year==2015, freq  below start(0) width(.02) legend(off)  ///
>         graphregion(color(white)) 
{txt}(bin={res}18{txt}, start={res}0{txt}, width={res}.02{txt})
{res}{txt}
{com}.         
.         graph export "CalhistogramRoutine.png"
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/CalhistogramRoutine.png written in PNG format)

{com}. 
. ///Figure D.1 c, US map
> 
. 
.         maptile l_sh_routine33a if  year==2000, geo(county1990)  geofolder("maptile")
{res}{txt}
{com}. 
. graph export "USmapRoutine.png"
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/USmapRoutine.png written in PNG format)

{com}. 
. 
. ///Figure D.1 d, California Map
> 
. maptile l_sh_routine33a if statefips==6 & year==2015, geo(county1990) mapif(statefips==6)   twopt(legend(pos(1)))  geofolder("maptile")
{res}{txt}
{com}. 
. 
. 
. graph export "CalmapRoutine.png"
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/CalmapRoutine.png written in PNG format)

{com}. 
. 
. 
. ///Figure D.2 a, US Histogram
> hist logtotalrev90imp if year==2000, freq  below start(0) width(1) legend(off) xlabel(0(1)10) ///
>         graphregion(color(white)) 
{txt}(bin={res}9{txt}, start={res}0{txt}, width={res}1{txt})
{res}{txt}
{com}.         
.         
.         graph export UShistogramInvestment.png, replace
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/UShistogramInvestment.png written in PNG format)

{com}. 
. ///Figure D.2 b, US Histogram
> hist logtotalrev90imp if statefips==6 & year==2015, freq  below start(0) width(1) legend(off) xlabel(0(1)10) ///
>         graphregion(color(white)) 
{txt}(bin={res}8{txt}, start={res}0{txt}, width={res}1{txt})
{res}{txt}
{com}.         
.         
.         graph export "CalhistogramInvestment.png"
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/CalhistogramInvestment.png written in PNG format)

{com}. 
.         ///Figure D.2 c, US Map
>         maptile logtotalrev90imp if  year==2000, geo(county1990) geofolder("maptile")
{res}{txt}
{com}.         
.                 graph export "USMapInvestment.png", replace
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/USMapInvestment.png written in PNG format)

{com}.         
. ///Figure D.2 d, California Map
> 
. maptile logtotalrev90imp if statefips==6 & year==2015, geo(county1990) mapif(statefips==6)  twopt(legend(pos(1))) geofolder("maptile")
{res}{txt}
{com}. 
. 
.                 graph export "CalMapInvestment.png"
{txt}(file /Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/CalMapInvestment.png written in PNG format)

{com}. 
.                 
. 
.                 
.         log close
      {txt}name:  {res}<unnamed>
       {txt}log:  {res}/Users/carlosxabel/Dropbox/HigherEd/Learning to love JOP data/Output/2Countyanalysis/2Log.smcl
  {txt}log type:  {res}smcl
 {txt}closed on:  {res}27 Feb 2024, 16:12:34
{txt}{.-}
{smcl}
{txt}{sf}{ul off}